      SUBROUTINE READCOMMON
C
      IMPLICIT INTEGER(I-Z)
C
      integer prec, isd, igpu, totgpu
      common/precsoc/prec, isd, igpu, totgpu
C
      COMMON/FLAGS/IFLAGS(100)
      COMMON/INFO/NOCCO(2),NVRTO(2)
      COMMON/IOPOS/ICRSIZ,ICHCSZ,IOFF(2)
      COMMON/SYMVECTOR/ISYMV
      COMMON/SYMLOC/ISYMOFF(8,8,25)
      COMMON/SYM/POP(8,2),VRT(8,2),NT(2),NF1(2),NF2(2)
      COMMON/SYMRXYZ/ SYMRX, SYMRY, SYMRZ
      INTEGER NSTART,NIRREP,IRREPA,DIRPRD,IAOPOP
      COMMON/SYMINF/NSTART,NIRREP,IRREPA(255,2),DIRPRD(8,8),IAOPOP(8)
      INTEGER :: IRPDPD, ISYTYP, NTOT
      COMMON/SYMPOP/IRPDPD(8,22),ISYTYP(2,500),NTOT(18)
      integer ilnbuf, iprcln, iprcwd
      COMMON /FILSPC/ ILNBUF,IPRCLN,IPRCWD
C
      character(80) :: string2
C
      OPEN(UNIT=1000, FILE='cc_interface', FORM='UNFORMATTED')
      REWIND 1000
      READ(1000) NOCCO(1), NOCCO(2), NVRTO(1), NVRTO(2)
      READ(1000) (((ISYMOFF(I,J,K),I=1,8),J=1,8),K=1,25)
      READ(1000) ((POP(I,J),I=1,8),J=1,2)
      READ(1000) ((VRT(I,J),I=1,8),J=1,2)
      READ(1000) SYMRX, SYMRY, SYMRZ
      READ(1000) ISYMV
      READ(1000) ((IRREPA(I,J),I=1,255),J=1,2)
      READ(1000) ((DIRPRD(I,J),I=1,8),J=1,8)
      READ(1000) ((IRPDPD(I,J),I=1,8),J=1,22)
      READ(1000)  NIRREP
      read(1000)  ilnbuf, iprcln, iprcwd
      read(1000)  ICRSIZ,ICHCSZ,(IOFF(i),i=1,2)
      read(1000) (IFLAGS(i),i=1,100)
      CLOSE(1000)
      prec=8; isd=2; igpu=0; totgpu=0
      END
  
